palindrome word using function procedure in qbasic